home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Online / AmigaTalk / intuition / WorkBench.st < prev    next >
Text File  |  2002-03-27  |  3KB  |  84 lines
  1. " ----------------------------------------------------------------- "
  2. " Workbench Class implements the functions that the AmigaOS uses to "
  3. " interface to workbench.  Dealings with Icons are performed in the "
  4. " Icon Class in Icons.st. "
  5. " ----------------------------------------------------------------- "
  6.  
  7. Class Workbench :Object ! private ! "appWindow appWindowDropZone appIcon appMenuItem"
  8. [
  9.    closeWorkbench
  10.       ^ <primitive 209 1 14>  " Returns true or false "
  11. |      
  12.    openWorkbench    
  13.       ^ <primitive 209 1 15>  " Returns true or false "
  14. |
  15.    workbenchToBack
  16.       ^ <primitive 209 1 16>  " Returns true or false "
  17. |
  18.    workbenchToFront
  19.       ^ <primitive 209 1 17>  " Returns true or false "
  20. |
  21.    addAppWindow: windowObj port: msgPort id: id data: userData tags: tagArray
  22.      " ULONG id, ULONG userdata, struct Window *window, 
  23.      * struct MsgPort *msgport, struct TagItem *taglist );
  24.      "
  25.      " Returns an appWindow Object or nil: "
  26.      ^ <primitive 209 1 3 private id userData windowObj msgPort tagArray> 
  27. |
  28.    removeAppWindow: appWindowObject
  29.      " Returns true or false: "
  30.      ^ <primitive 209 1 2 private appWindowObject>
  31. |
  32.    addAppIcon: text port: msgPort   id: id data: userData lock: fileBptrLock 
  33.                     icon: diskObj tags: tagArray
  34.      " Returns an appIcon Object or nil: "
  35.      ^ <primitive 209 1 4 private id userData text msgPort fileBptrLock diskObj tagArray> 
  36. |
  37.    removeAppIcon: appIconObject
  38.      " Returns true or false: "
  39.      ^ <primitive 209 1 5 private appIconObject>
  40. |
  41.    addAppMenuItem: text port: msgPort id: id data: userData tags: tagArray
  42.      "( ULONG id, ULONG userdata, UBYTE *text, 
  43.      * struct MsgPort *msgport, struct TagItem *taglist );
  44.      "
  45.      " Returns an appMenuItem Object or nil: "
  46.      ^ <primitive 209 1 6 private id userData text msgPort tagArray> 
  47. |
  48.    removeAppMenuItem: appMenuItemObject
  49.      " Returns true or false: "
  50.      ^ <primitive 209 1 7 private appMenuItemObject>
  51. |
  52.    workbenchInfo: objName lock: fileLock screen: screenObject
  53.      <primitive 209 1 8 private fileLock objName screenObject>
  54. |
  55.    openWorkbenchObject: objName tags: tagArray
  56.      " returns true or false: "
  57.      ^ <primitive 209 1 1 private objName tagArray> 
  58. |
  59.    closeWorkbenchObject: objName tags: tagArray
  60.      " returns true or false: "
  61.      ^ <primitive 209 1 0 private objName tagArray> 
  62. |
  63.    workbenchControl: objName tags: tagArray
  64.      " returns true or false: "
  65.      ^ <primitive 209 1 9 private objName tagArray> 
  66. |
  67.    addAppWindowDropZone: appWindow id: id data: userData tags: tagArray
  68.      " struct AppWindow *aw, ULONG id, ULONG userdata, struct TagItem *tags ); "
  69.      " Returns an appWindowDropZone Object or nil: "
  70.      ^ <primitive 209 1 10 private appWindow id userData tagArray> 
  71. |
  72.    removeAppWindowDropZone: appWindow dropZone: appWindowDropZoneObject
  73.      " returns true or false: "
  74.      ^ <primitive 209 1 11 private appWindow appWindowDropZoneObject> 
  75. | 
  76.    changeWorkbenchSelection: objName hook: hookObject tags: tagArray
  77.      " returns true or false: "
  78.      ^ <primitive 209 1 12 private objName hookObject tagArray> 
  79. |
  80.    makeWorkbenchObjectVisible: objName tags: tagArray
  81.      " returns true or false: "
  82.      ^ <primitive 209 1 13 private objName tagArray> 
  83. ]
  84.